home *** CD-ROM | disk | FTP | other *** search
- /*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms are permitted
- * provided that this notice is preserved and that due credit is given
- * to the University of California at Berkeley. The name of the University
- * may not be used to endorse or promote products derived from this
- * software without specific prior written permission. This software
- * is provided ``as is'' without express or implied warranty.
- */
-
- #ifndef lint
- char copyright[] =
- "@(#) Copyright (c) 1980 Regents of the University of California.\n\
- All rights reserved.\n";
- #endif /* not lint */
-
- #ifndef lint
- static char sccsid[] = "@(#)teach.c 5.4 (Berkeley) 2/16/88";
- #endif /* not lint */
-
- #include "back.h"
-
- char *hello[];
- char *list[];
- char *intro1[];
- char *intro2[];
- char *moves[];
- char *remove[];
- char *hits[];
- char *endgame[];
- char *doubl[];
- char *stragy[];
- char *prog[];
- char *lastch[];
-
- extern char ospeed; /* tty output speed for termlib */
-
- char *helpm[] = {
- "\nEnter a space or newline to roll, or",
- " b to display the board",
- " d to double",
- " q to quit\n",
- 0
- };
-
- char *contin[] = {
- "",
- 0
- };
-
- main (argc,argv)
- int argc;
- char **argv;
-
- {
- register int i;
-
- signal (2,getout);
- if (gtty (0,&tty) == -1) /* get old tty mode */
- errexit ("teachgammon(gtty)");
- old = tty.sg_flags;
- #ifdef V7
- raw = ((noech = old & ~ECHO) | CBREAK); /* set up modes */
- #else
- raw = ((noech = old & ~ECHO) | RAW); /* set up modes */
- #endif
- ospeed = tty.sg_ospeed; /* for termlib */
- tflag = getcaps (getenv ("TERM"));
- #ifdef V7
- while (*++argv != 0)
- #else
- while (*++argv != -1)
- #endif
- getarg (&argv);
- if (tflag) {
- noech &= ~(CRMOD|XTABS);
- raw &= ~(CRMOD|XTABS);
- clear();
- }
- text (hello);
- text (list);
- i = text (contin);
- if (i == 0)
- i = 2;
- init();
- while (i)
- switch (i) {
-
- case 1:
- leave();
-
- case 2:
- if (i = text(intro1))
- break;
- wrboard();
- if (i = text(intro2))
- break;
-
- case 3:
- if (i = text(moves))
- break;
-
- case 4:
- if (i = text(remove))
- break;
-
- case 5:
- if (i = text(hits))
- break;
-
- case 6:
- if (i = text(endgame))
- break;
-
- case 7:
- if (i = text(doubl))
- break;
-
- case 8:
- if (i = text(stragy))
- break;
-
- case 9:
- if (i = text(prog))
- break;
-
- case 10:
- if (i = text(lastch))
- break;
- }
- tutor();
- }
-
- leave() {
- if (tflag)
- clear();
- else
- writec ('\n');
- fixtty(old);
- execl (EXEC,"backgammon",args,"n",0);
- writel ("Help! Backgammon program is missing\007!!\n");
- exit (-1);
- }
-